home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1999 March / EnigmA AMIGA RUN 35 (1999)(G.R. Edizioni)(IT)[!][issue 1999-03].iso / earcd / -archivi / -recent2 / amicad_2.00.lha / AmiCAD / ARexx / VisuNetlist.AmiCAD < prev   
Text File  |  1999-02-22  |  616b  |  25 lines
  1. /* Ce fichier vous donne un exemple de structure possible
  2. pour un fichier de macros appelé par AmiCAD, par le menu Macros */
  3.  
  4. options results     /* indispensable pour récupérer le résultat des macros */
  5.  
  6. signal on error     /* pour l'interception des erreurs */
  7. signal on syntax
  8.  
  9. 'REQFILE("Netlist à visualiser?", "Travail:AmiCAD/Spice", "*.cir")'
  10. f=result
  11. if f='' then exit
  12.  
  13. call edit.rexx(f)
  14. exit
  15.  
  16. /* Traitement des erreurs, interruption du programme */
  17. syntax:
  18. erreur=RC
  19. 'MESSAGE("Erreur de syntaxe"+CHR(10)+"en ligne 'SIGL'"+CHR(10)+"'errortext(erreur)'")'
  20. exit
  21.  
  22. error:
  23. 'MESSAGE("Erreur en ligne 'SIGL'")'
  24. exit
  25.